home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / anim / a220.dms / in.adf / library / grid < prev    next >
Encoding:
Text File  |  1989-12-20  |  790 b   |  30 lines
  1.  
  2. REM grid draw routine
  3. REM this routine will draw an x,y grid anywhere on the screen
  4.  
  5. REM To use, include this segment, select the foreground color with
  6. REM the PEN command, and initialize these variables:
  7.  
  8. REM  grdl     to upper left x coordinate
  9. REM  grdt     to upper left y coordinate
  10. REM  grdw     to width of entire grid
  11. REM  grdh     to height of entire grid
  12. REM  grdx     number of x divisions
  13. REM  grdy     number of y divisions
  14.  
  15. REM  then do a GOSUB 9200.  Variables used are those mentioned above,
  16. REM  and grdc,grdv  Only line number used is 9200.
  17.  
  18.  
  19. rem  grid draw routine
  20. 9200 for grdc=0 to grdx
  21.       grdv=grdl+(grdw*grdc)/grdx
  22.       move grdv,grdt:draw grdv,grdt+grdh
  23.      next
  24.      for grdc=0 to grdy
  25.       grdv=grdt+(grdh*grdc)/grdy
  26.       move grdl,grdv:draw grdl+grdw,grdv
  27.      next
  28.      return
  29.  
  30.